﻿Module StartupModule
    Sub Main()
        ' 启用视觉样式
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)

        ' 根据条件启动不同窗体

        Dim value As Integer = Int(getConfig(3))

        Select Case value
            Case 1
                Application.Run(New LoginForm1())

            Case 2

                Application.Run(New Login2())
            Case 3 To 5

            Case 6, 7, 8

            Case Is > 10

            Case Else

        End Select

    End Sub
End Module
